home *** CD-ROM | disk | FTP | other *** search
/ Time Warp / Time Warp.iso / mac / Time Warp / Time Warp.DXR / Shared_56.ls < prev    next >
Encoding:
Text File  |  1997-05-23  |  509 b   |  20 lines
  1. on toggleControl pup, movie
  2.   if the puppet of sprite pup = 0 then
  3.     puppetSprite(pup, 1)
  4.   end if
  5.   set the directToStage of cast movie to 1
  6.   set QTstate to the controller of cast movie
  7.   if QTstate = 0 then
  8.     set the controller of cast movie to 1
  9.   else
  10.     set the controller of cast movie to 0
  11.   end if
  12.   if the movieRate of sprite pup <> 1 then
  13.     set the movieRate of sprite pup to 1
  14.   end if
  15.   if the sound of cast movie = 0 then
  16.     set the sound of cast movie to 1
  17.   end if
  18.   updateStage()
  19. end
  20.